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Line Index Format | 
31 15 0 
: eeoecae ween ewan ’ +0 
! Offset. to blk | LINESW_BLOCK_OFF SET 
i from page base | 
toeoecemwenmenanneoaat} +2 | 
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Each block on a dictionary page is pointed to by a line index 
on that page. Disk pointers (DPTR) between the various blocks 
actually point to the block's Line index. ‘he Line index is 
then used to locate the physical dictionary block. 


The PAGESINDEX macro allows the programmer to access a line | 
ndex while it resides on a Be oe al page. It also uses the 
LINESZ_FIELDS to access the individual fields within a Line index. 
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LITERAL | 
LINESS_BLOCK_LENGTH = 2; | 
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CRO 
pie = BLOCKCLINESS_BLOCK_LENGTH, BYTE] FIELD (LINESZ_FIELDS) 


FIELD gh EMESE FIELDS = 
gS LINESW_BLOCK_OFFSET = (0, 0, 16, 0] 
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| STRUCTURE DEFINITIONS 1 ~3ep-19 4 $3:28:3 "$255$DUA28:CCDD. SRCICDDLIB.B32;1 , (6) 
odie ee 

; : age Forma 

; one 8 . 

; b178 8 ! 

; Wir ' 31 15 0 

3 0178 0 ' bem owace Sa ewe eee oe ma ema eroscaana = o-+ +0 

: $180 : P Check PAGESL_CHECKSUM 

: : H age Checksum H AGESL_CHECKSU 

: 0181 0. . 

3 pies 0 ' + rmaweamwatomawme boarawesesceoe weaeenane + +4 

>; 0185 0 : ‘Page's } ' } 

>; 0184 0 : icluster: | Page Number H PAGESV_NUMBER 

; oie 0 ! : seq # } : ' PAGESB_CLUSTER_10_SEQ 
+4 01 0 ' foe moecaaftase ee oe + +8 

; 0187 O ! : H H PAGESL_NEXT_PAGE 

>; 0188 0 : i Size of next iNext Related Page: PAGESV_NEXT_PAGE 

>; 0189 0 ! ! page group : : PAGESV_NEXT_SIZE 

3 0190 0 ' Sea ee pen cae s fee oemn mene ewonn oe e +12 

>; 0191 0 . ‘Page's : H Prior H 

3 8136 0 ¢ : group : it Related Page’ i: PAGESV_PRIOR_PAGE 

; 0 : : seq # } : ' PAGESB_GROUP_I0_SEQ 

4 0194 0 ' wee seace hd aomena p$etwoeoen oo mem mee y +16 

s 0195 @ : : H : 

>; 0196 0 : H Number of i: Free snace_ ! PAGESW_FREE_SPACE 

:; 0197 0O ! : Line indices } ‘ PAGESW_ INDICES 

: 0198 O fo $eoeoooooenceone + +20 PAGESV_DATA 

; 0199 0 : : H 

; 0200 0 ‘ : Date area H 

H 0201 0 4 ' ' 

: Bsns 5 +/\ININININININININININININININING 

; 0206 0 : : Line index area H 

>; 0205 0 ‘ : : 

: 0206 0 ' $eewwwwwwwwwweeeeencooccccccccoce + +512 PAGESV_INDEX_BASE 

s er @ : 

>; 0208 O ! 

: 0209 0 : Each page in the dictionary file starts with a page header. 

; 0210 0 : The next and prior related page pointers are used for Linking 
5 Osta 8 } page groups. The following types of page groups exist: 

5 0518 0 ; 1) Lockable page group. . 

; 0214 0 : Each named entity (and history List) owns exactly 
: 0215 0 : one lockable page group. These groups contain 

3 psig 0 : all unamed offspring of the name entiry (or history 
: 0219 0 : A page group may only be accessed through its 

>; 0220 0 ; portal page. A group's portal page is the page 

: 0221 0 : on which the named entity (or history List head) 

3 Oss§ 0 : resides. If a group's portal page is locked, then 
3 oSs7 8 no pages in the group may be accessed. 

3 03 5 0 : The PAGESINDEX structure is used to access a Line index entry on 
3 05 $ 0 @ page. 

: 0558 0 : A page whose checksum is zero is a locked page, and indicates that 
: 0229 : th sub-tree below it is incomplete and in a transient state. 
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Such pages may never be read. 


Lat Eo 


Each page has two page sequence numbers. The cluster sequence 
number must be the same for all pages in the cluster. The group 
sequence number must be the same for all pages in an 1/0 group. 


The cluster 1/0 sequence number is bumped whenever more than one 

roe in the cluster is written. The group 1/0 sequence number 
s bumped whenever the group is written. These sequence numbers 

enable the detection of incomplete cluster unstage operations. 
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PAGESS_BLOCK_LENGTH = 512; 


MACRO 
_— = BLOCKCPAGESS_BLOCK_LENGTH, BYTE] FIELD (PAGESZ_FIELDS) 
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PAGE SV_INDEX_BASE 
TES; 
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RAL 
PAGESK_BASE BLOCKLO, PAGES$V_DATA; 

PAGE$S_BLOCK LENGTH, BYTE) 
PAGESK_FREE SPACE = PAGESS BLOCK-LENGTA - PAGESK_BASE, 
PAGESS_INDER_BASE = BLOCKCO, PAGESV_INDEX BASE; 
PAGESS_BLOCK_LENGTH, BYTE); 
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Pointer to top of 
dictionary sub-tree 


Pointer to last 
free page bit-map 


header on page 1 


in the dictionary file. 
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FIELD DICTSZ_FIELDS = 
SET 
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TERAL 
DICTSS_BLOCK_LENGTH = 6 + PAGESK_BASE; 
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3+PAGESK-BASE. 0. 24 


i§ Se 19 
-3ep- 
1 = ep-19 


B 


33: 
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DICTSV_LAST_BITMAP 


MACRO 
SDICT = BLOCKCDICTS$S_BLOCK_LENGTH, BYTE) FIELD ta: ty 


DICTS 
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Each dictionary uses page 1 as its dictionary header page. 
block immediately follows the page 
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DICTSV_LAST_BITMAP points to the Last free page bit-map entry. 
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3 7 : 

: 8 7 The ordering and clustering of these block types is significant. 

; 75 i ALL block types must be eon Wee’ without any holes and 

: 76 : bounded by the symbols BLKSK_TYPE_FIRST and BLKSK. TYPE LAST. 

. ¢€ uf i ALL node and NAME block PRES must be cong gyeut and bounded 

3 8 by the symbols BLKSK_TYPE_NODE_FIRST and BLKSK_TYPE_NODE_LAST. 

: 0 i To add more node or NAME block types, insert them at the front 

: 0 0 : of the table. 

3 0 5 ; To add any other block type, append them to the end of the table. 

: 0 0 i CHANGING THE VALUES OF ANY OF THE ACTUAL BLOCK TYPES WILL INVALIDATE 
 & 0 } EXISTING DICTIONARIES. 

>; 0388 O t= 

>; 0389 0 

H 0390 0 LITERAL 

3 had BLKSK_TYPE_FIRST = 101, ! Lowest block type 

; 0398 4 BLKSK_TYPE_NODE_FIRST = 101, ! First node or NAM block 

: 0395 0 BLKSK_TYPE_DIR_NAM = 101, ! Directory NAM block 

: 0396 0 BLKSK_TYPE_FIL_NAM s Oe. ' File NAM bloc 

>; 0397 0 BLKSK_TYPE_TERA_NAM = 103, ! Terminal NAM block 

; 0398 0 BLKSK_TYPE_DIR_NODE = 104, ! Directory node block 

3 $44 3 BLKSK_TYPE_TERM_NODE = 105, ! Terminal node block 

; 9401 : BLKSK_TYPE_NODE_LAST = 105, ! Last node or NAM block 

; 0e08 0 BLKSK_TYPE_BITMAP = 106, ! Free page bitma 

>; 0404 0 BLKSK_TYPE_ENTITY_ATT = 107, ! Entity Sreribute block 

; 0605 0 BLKSK_TYPE_ENTITY_LIST = 108, ! Entity List bloc 

; 06406 0 BLKSK_TYPE_ENTITY_LIST_ATT = 109, ! Entity List attribute block 
; 0407 0 BLKSK_TYPE_NULL_ATT = 110, ! Null attribute block 

; 0408 0 BLKSK_TYPE_NUM_ATT = 111, ! Numeric astribute bloc & 

; 0409 0 BLKSK_TYPE-SHORT_ATT = \1¢° ! Short stri ng attribute block 
: 0610 0 BLKSK_TYPE_STRING_ATT = 113, ! String attribute b : 
; 0411 0 BLKSK_TYPE_STRING_LIST = 115, ! String list blo a 

; belg 0 BLKSK_TYPE_STRING_LIST_ATT = 116, ! String List attribute block 
; 0413 0 BLKSK_TYPE_STRING_SEG = 117, ! Strin = ent block 

; 0614 O BLKSK_TYPE_ TEXT = 118, ! Text 

; 0415 0 BLKSK_TYPE_ACL = 119, ! Access conerel list entry 

; 0416 0 BLKSK- TYPE hte = 13 ' Access control list criterion e 
: 0417 0 BLKSK_TYPE_LAST = 120; ! Highest block type 
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+ 


Free Page Control ° 


Lock (FPCB) 
Free Page Bit Map (FPBM) 


Pores een mane mean newer wea = $+ +0 


FRRLELELER 


Disk ocerese of prior FPCBSV_PRIOR 
toecnnn nn tonne nn tonecnnn nen nnnennt 43 
{ Number of | First page FPCBSV_FIRST_PAGE 
{| pages mapped ;: mapped : FPCBSV_PAGE_COUNT 
toc momen nanncae+¢ pram anromomeracanm $ +7 
H { 
: Blocks not |} FPCBSW_EXCESS_BLOCKS 
i used here ‘ 


Free pages in the Bane et file are cmates ches} the — Pe 
Control Blocks (FPCB) and the Free Page Bit Map ( Each 
free page in the file has its corresponding bit set = 


The He R hn +s size may make it impossible to use all io the 
allocated bloc If so, the un-used blocks are tallied i 

At oe M EXCESS Beocks. and will be used when the file nent 
extended. 


The FPCBs are chained as the dictionary file grows in size. 


St et ee tt et ae ee 
DONANEWN (OOO UES WN O DONOAUESWN “OOOO ULE WN OOO 
a 


SOCSOOOSOOSOSOSOSCOCOOSSOSOSOSOSOSSSOSSOSSSOOSSOSOSOOOSOOOCOOCOOOOCOOOOOOOOO 


RRLRLLLLLKLLRRRRRRRRERERRERRER RRR RRR RR RR REE 


5 LITERAL 

5 FPCBS$S_BLOCK_LENGTH = BLKSK_BASE + 9; 

5 STRUCTURE 

5 FPCBLO, P, S, E; BLOCKS) = CFPCB$S_BLOCK_LENGTH+(BLOCKS+7)/8) 
3 (FPCB+O3<P,S,E>; 

5 FIELD FPCBSZ_ FIELDS = 

5 FPCBSV_PRIOR _ = CO*BLKSK_BASE, 0, 24, 02. 

60 FPCBSV~ FIRST PAGE = [3+BLKSK"BASE. 0. 17 ‘ , 
61 FPCB$V~PAGE COUNT = C3+BLKSK"BASE. 17, 15, 04, 

6¢ FPCBSW- rENCESS.B -BLOCKS = [7+BLKSK“BASE, Q. 16, 0), 

6 FPCB$V~B1 TMAP = C9+BLKSK“BASE. 0, 0, 0) 

64 TES; 

55 

66 LITERAL 

67 PCBSK_BASE = FPCBSS -8L0 CK_L 

68 FPCBSS: “BITMAP = FPCBLO> PCBSY COI IMAP); 

% STRUCTUR 

71 FPBMCI} = (FPBM+FPCB$S_BITMAP)<I-1, 1, 0>; 
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STRUCTURE DEFINITIONS 1328op- 188d 33:29:33 “SRsbsOASBSrebp caracbonie.032;1 2% 105 
; gf ‘+ 
: t Name Block 
: 0475 i 
3 ug ! 31 24 15 0 
: as ; ° eeceece Seema na mse eo awene es : +0 
: 79 i { Pointer to next NAME | NAMESV_SIBLING 
> 0480 : : (sibling) H 
‘ ot 8 ° Sen ana nanmwananeaaaraae ies 43 
3 88 ! Pointer to name block NAME $V_NAME 
: 85 i eee ereeaenc cone eae > +6 
3 86 8 ! } Pointer to node H | 
; 0487 : | block or forwarding ; NAMESV_NODE or NAMESV_FILE 
; bees 8 ! ‘ file name H 
; 9h 34 8 : Goeoceeeeecoeceecoecooecen + 49 | 
; ot There are three types of NAM Blocks, Directory, File, and Terminal. 
3 bc98 Directory NAM Block is made up of a Block Header + NAM Block. 
: 9495 9 File NAM Block is made up of a Block Header + NAM Block. 
: 0497 0 i Terminal NAM Block is made up of a Block Header + NAM Block + Terminal 
3 Bees 3 : NAM Block. 
: 0500 ‘ ie 
: 0501 
g B208 0 LITERAL 
3 3207 8 NAMESS_BLOCK_LENGTH = 9 + BLKSK_BASE; 
: 0505 : MACRO 
3: ® 0506 SNAME = BLOCKCNAMESS_BLOCK_LENGTH, BYTE) FIELD (BLK$Z_FIELDS 
: 0507 0 " NAME$Z_F IELDS) 
; 0509 0 . 
; Bare FEELS (REST _F SELES = 
; O51¢ 0 NAMESV_SIBLING 2 QeBLKSK_BASE, 0, 24, 02. 
° 51 0 NAME $V_NAME = +BLKSK_BASE, e 4, 0 ° 
s 514 NAME SV_NODE = C6*BLKSK_BASE, 0, 24, 63° 
: 515 NAMESV—FILE = C6+BLKSK_BASE, 0, 24, 
BM ot 
: 0518 LITERAL 
3 0519 0O NAME $K_BASE = NAMESS_BLOCK_LENGTH; 
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There are two types of Node Blocks Directory and Terminal. 
Directory Node Block is made up of a Block Header + Node Block 
Terminal Node Block is made up of a Block Header + Node Block 


COD Bliss Liprery 

STRUCTURE DEFINITIONS 

‘+ 

: Node Block 

i 

31h 15 0 

: + weeeeeeeeoeoococecoceccen + +0 

; Pointer to name block NODESV_NAME 

! : Sewanee ananas eeeceeeoneeecen » 43 

i { Pointer to history } NODESV_HISTORY 
} H List head ' 

: ° eon noma ee oer emteen eee ° +6 

Pointer to protection NODESV_PROTECTION 
; “ seewmeanaao¢ocanome er mocameawes ‘ 49 

i { Pointer to parent } NODE$V_PARENT 
‘ ' node ' 

+ meee m weer sec cee seme cene + +12 

! Pointer to resource NODE$V_RESOURCE 
: oor > +15 

i Pointer to NODESV_LIST 

¢ H list head ' 

: tata Sore noenawoeamn ° +18 

i cD NODE$W_ VERSION 
: H version H 

' $eoeocccoecocececn + +20 

! 

i 

i 

i 

i 

i 

i 


LITERAL 
NODESS_BLOCK_LENGTH = 20+ BLKSK_BASE; 


MACRO 
SNODE = BLOCKCNODESS_BLOCK_LENGTH, BYTE) FIELD (BLK$Z_FIELDS 
" NODE$Z~F IELDSS 
FIELD NODESZ_FIELDS = 
NODESV_ORDERED = (1, 0, 1, 03 
NODE $V~NAME = OBL kk BASE. . 24 02, 
NODE SV"HISTORY = E3+BLKSK"BASE. 0. 24, 01. 
NODE$V~ PROTECTION = CO+BLKSKBASE. 0. 24. 0). 
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a 
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Pitot 


MPROPOTUR a ee 
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tata 


CODD Bliss Librar 
CPRUCTURE DEFINITIONS 
NODESV_PARENT = [9+BLKSK_BASE, 0, 24, 0 
NODESVRE SOURCE = T2+BLKSR BASE, » 24, 04, 
NODESV_LIST = LIS+BLKSK_BASE, 0, 24, OJ, 
wee = [C18+BLKSK_BASE, 0, 16, 
LITERAL 
NODE $K_BASE = NODESS_BLOCK_LENGTH; 
14 
: The following flag occurs in the BLKSB_FLAGS field of 
: a directory node. 
LITE 


HSleo-t9ge 35:56:45 vasedy atigs 


RAL 
NODE SM_ORDERED = 1*1 = 1°0; ! List elements are sorted by name 


teases map iateraneeionahaiag desea - 
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STRUCTURE DEFINITIONS 8-Sep-t9Be S2:41:38 — “S¥sS8nuad8sceporsacaepouie.e32;1 8% 438. 
+ 
Common Attribute Block 
31 ra) 15 
Quesusscusccsnnsstorscoerenapenase #§ 
Attribute name ATTSL_NAME 
ea +4 
Pointer fo next ATTS$V_SIBLING 
i sibling H 


‘ 
Geeoeecoeeoooescoooecoeoesn} + 7 


Rtotats 


Each attribute has the common attribute block immediately following 
the universal block header. 


There are six eee of Attribute Blocks Entity Attribute Block 
List Attribute Block, Numeric Attribute Block, Null Attribute Block, 
Short String Attribute Block, and String Attribute Block. 


ere ty Attribute Block is made up of a Block Header + Attribute Block 
+ Entity Attribute Block. 


List Attribute Block is made up of a Block Header + Attribute Block 
+ List Attribute Block. 


Numeric Attribute Block is made up of a Block Header + Attribute Block 
+ Numeric Attribute BLock. 


Null Attribute Block is made up of a Block Header + Attribute Block. 


Short String Attribute Block is made up of a Block Header + Attribute 
Block + Short String Attribute. 


Stcing Attribute Block is made up of a Block Header + Attribute Block 
+ String Attribute Block. 


OOOO ME WN HOO NON EWN BODO SOU RUMI OOD OO 


SESSESESS CSCS SSeS SS Teer TTT Ere 


TERAL 
ATTSS_BLOCK_LENGTH = 7 + BLKSK_BASE; 
MA 


se 
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CRO 
” SATT = BLOCKCATT$S_BLOCK_LENGTH,BYTE) FIELD (ATTS$Z_ FIELDS, 
L ; : BLK$Z_FIELDS) 
4 FIELD ATTS$Z_FIELDS = 
5 SET 


ATTSL_NAME s 
a ATTS$V~SIBLING 4+BLKSK~BASE, 0, 


} 

O*BLKSK BASE. 0, 32, 01, | 
24° 0 | 

| 


LITERAL | 
ATTSK_BASE = ATTS$S_BLOCK_LENGTH; : | 
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C 
S 
‘ 
1! 
' 
i 31h 15 0 
° See ewe wwe naman cieanen | +0 
i { Pointer to first | ENTSV_FIRST_ATT 
: H attribute H 
: ¢eeeawaor mr menace neeanan see + 43 
i Entity Attribute Block is made up of a Block Header + Attribute Block 
: + Entity Attribute Block 
ie 
‘LITERAL 
ENTSS_BLOCK_LENGTH = 3 + ATTSK_BASE; 
MACR 
SENT = BLOCKCENTS$S_BLOCK_LENGTH, BYTE] FIELD (ATT$Z_FIELDS, 
BLK$Z_FIELDS 
. ENTS$Z_FIELDS) 


FIELD ENTSZ_FIELDS = 
g,ENTSVFIRST_ATT 


= CO+ATTSK_BASE, 0, 24, 0] 


LITERAL 
ENTSK_BASE = ENT$S_BLOCK_LENGTH; 
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STRUCTURE DEFINITIONS =3op7 1982 33:29:33 | “O4SEE8 

> O714 0 1+ : : 

s 715 3 ! List Attribute Block 

; pris ! 

s Orfir 9 ! 

; ges 0 ' 31 24 15 0 

3 071 0 ' -eeeeeeoesan Sm enmoaanmaas, neemed +0 

; 0720 0 ! ' 

> Oe, © : : Pointer to first H LISTSV_FIRST_LST 

: b7S¢ 0 : H lst segment H 

2 072 0 ' fwmwamoecatmanmanmrereeneomnece o-+ +3 

; 0724 0 ' : H 

; 0725 0 ' : Total number ; LISTSW_CELL_COUNT 

6 (CUBS ° 0 ! : of cells : 

g 4 H 8 ' poe econ s eae as + +5 

. { 

$ 0729 0 ‘ List Attribute Block is made up of a Block Header + Attribute Block 

: 0730 0 ‘ + List Attribute Block. 

: Oi 

5 OF 38 0 

; 0734 O LITERAL 

: Grass © LISTSS_BLOCK_LENGTH = 5 + ATTS$K_BASE; 

; 0736 0 

: 0737 O MACRO 

: 40738 =O $LIST = BLOCKCLISTSS_BLOCK_LENGTH, BYTE] FIELD (ATT$Z_FIELDS, 

; 40739 +O BLK$Z_FIELDS, 

: 40740 O LIST$Z_FIELDS) 

s 9741 O q; 

$ 0742 0 

: 0743 O FIELD LISTSZ_FIELDS = 

; 0744 0 SET 

; 0745 0 LISTSV_FIRST_LST = CO+ATTSK_BASE, 0, 24, 01, 

: 0746 O LIST$W_CELL_COUNT = (3+ATTSK_BASE, 0, 16, 0) 

: 0747 O 3 

; 0748 O 

:; 0749 O LITERAL 

; 0750 0 LIST$K_BASE = LIST$S_BLOCK_LENGTH; 
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TRUCTURE DEFINITIONS 730p7198e $2:2hi33 | “Shsbs 
+ 

Numeric Attribute Block 


NATSL_VALUE 


Numeric Attribute Block is made up of a Block Header + Attribute Block 
+ Numeric Attribute BLock. 


Numeric attribute block contains the 
value of the numeric attribute. 


Oe me meme mt me meme me meme ese mre LO 
Ww 
— 
™~m 
- 
= 
w 


LITERAL 
NAT$S_BLOCK_LENGTH = 4 + ATTS$K_BASE; 
MACRO 
SNAT = BLOCKCNATS$S_BLOCK_LENGTH,BYTE] FIELD cartsz FIELDS, 
LKS$Z_FIELDS 
AT$2~FIELDS) 
x; 
FIELD NATSZ_FIELDS = 
1 NATSL_VALUE = CO+ATTSK_BASE,0,32,0] 
LITERAL 


R 
NATSK_BASE = NAT$S_BLOCK_LENGTH; 


a SS | 


on 
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STRUCTURE DEFINITIONS 15-Sep-1984 22:4 
1+ 
: Short String Attribute Block 
; 31 0 
: tenwenennt + SSAST_STRING 
! String } 
/ . \ 
\ / 
} ' ' 
! teoececesce=} +7 
' 
Short String Attribute Block is made up of a Block Header + Attribute 
Block + Short String Attribute. 
‘ Strings whose total length is between 0 and 255 bytes are usually 
: stored using the short string attribute block. If a string is 
: too long to be stored in an SSA, then it is stored using a normal 
: string attribute block (STR). 
\- 
LITE 


TERAL 
SSASS_BLOCK_LENGTH = 0 + ATTSK_BASE; 


MACRO 

SSSA = BLOCKCSSAS$S_BLOCK_LENGTH,BYTE] FIELD (ATT$Z_FIELDS, 

BLK$Z_FIELDS 

. SSA$Z_~FIELDSS 
FIELD SSAS$Z_FIELDS = 

so SSAST_STRING = CO+ATTSK_BASE, 0, 0, 0) 
LITERAL 

SSASK_BASE = SSA$S_BLOCK_LENGTH; 
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STRUCTURE DEFINITIONS 15-Sep-1984 22:41:52 
1+ 
String Attribute Block 
i 
i 31 24 15 0 
Craeaaeaenecnr messes: + +0 
i { Pointer to first } STREV_STRING 
: H string segment : 
: ¢eccecee Qadaentoaeenmee + +3 
i : Total string } STRSW_LENGTH 
: H ength ' 
: . i (  HOMMOMSwseeensce + +5 
tg ty Attribute Block is made up of a Block Header + Attribute Block 
: + String Attribute Block. 
i The string is broken into one or more segments. The string 
segments are stored in SEG blocks. 
LITE 


RAL 
STRSS_BLOCK_LENGTH = 5 + ATTSK_BASE; 
MACRO 


R 
$STR = BLOCK(STRS$S_BLOCK_LENGTH,BYTE) FIELD (ATT$Z_FIELDS, 
BLK$2_FIELDS 
. STRSZ_FIELDS) 
FIELD STRSZ_FIELDS = 
STRSV_STRING = CO*ATTSK_BASE, 0. 24, 0, 
STRSWILENGTH = [3+ATTSKIBASE, 0, 16. 03 
LITE 


TERAL 
STRSK_BASE = STRS$S_BLOCK_LENGTH; 


. 2 
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STRUCTURE DEFINITIONS espn ibe S2:41:83 — “SSSSSDNA28sCeoD SacaeboLIB.832;1 29° 195 
H '+ 
. ! 
; set 0 LST Segment Block 
; 0870 31h 15 0 
: 871 ' $oeewoeoeeeecececcesccces + +0 
; +4 : : : 
: eh 8 } : Pointer to next lst: LSTSV_NEXT_LST 
: 0875 ‘ ; @uaccce= tencnnenn-n ne == : +3 
; BPP i ‘Number of cells! LST$W_CELL_COUNT 
$ th : : here H 
$ + 144 8 $oweooeooceceoce + 45 LSTST_CELLS 
: 0881 0 i There are two types of LST Segment Blocks Entity List Block and 
; pees 8 : String List Attribute Block. 
; 0884 0 i Entity List Block is made up of a Block Header + LST Block + ' 
; tts 8 Entity List Block. 
: 0887 0 i String List Attribute Block is made up of a Block Header + LST 
>; 0888 0 : Block + String List Attribute Block. 
oo 
: 0891 0 : 
; bas 0 LITERAL 
; 0893 0 LST$S_BLOCK_LENGTH = 5 + BLKSK_BASE; 
: 0895 0 MACRO 
; * $896 0 SLST = BLOCKCLST$S_BLOCK_LENGTH,BYTE) FIELD (BLK$Z_FIELDS, 
:.6 0897 0 LST$Z_FIELDS) 
: 0899 0 " 
; 0900 0 
; 0901 0 FIELD LSTSZ_FIELDS = 
; o4'¢4 0 SET 
; 0903 0 LSTSV_NEXT_LST = £9 + BLKSK_BASE, 0, 24. 0], 
>; 0904 0 LST$W_CELL_COUNT = (3 + BLKSK_BASE, 0, 16, 0J, 
>; 0905 0 LSTST_CELLS = (5 + BLKSK_BASE, 0, 0, 0) 
3 bone 4 TES; 
: 0908 0 LITERAL 
; 0909 0 LST$K_BASE = LST$S_BLOCK_LENGTH; 


FIELD ELSTSZ_FIELDS = 


one 
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STRUCTURE DEFINITIONS 15-Sep-1984 22:41:2 _8255$ 
; 0910 8 ‘+ 
; aap Entity List Block 
; 8338 0 : 
>; 0914 ! 31 24 15 
$ 0915 0 ' ¢emerceen see swe eowresce am ee me +0 
3 g918 0 : : H 
>; 0917 0 : : Pointer to first H ELSTSV_ATT 
; 0918 0 ‘ : attribute H 
3 344 0 ecceeceooecececececeses + 43 
: 83 1 o : Entity List Block is made up of a Block Header + LST Block + 
3 9 ¢ : Entity List Block. 
>; 0923 0 ‘ 
3 ad 0 !- 
>; 0925 0 
: 0926 0 LITERAL 
; 9444 0 ELSTS$S_BLOCK_LENGTH = 3; 
; 0928 0 
; 0929 0 MACRO 
3m aes ° _ = BLOCKCELSTSS_BLOCK_LENGTH, BYTE) FIELD (ELSTS$Z_FIELDS) 
3 a474 0 
; 0933 0 
; 0 
; 09 0 
; O9 0 ELSTSV_ATT = (0, 0, 24, 0] 

: 0937 0 TES; 

>; 0938 0 

:; 0939 0 LITERAL 

: 0940 0 ELSTSK_BASE = ELST$S_BLOCK_LENGTH; 

; 0941 0 

$ nd 0 

: 094 0 STRUCTURE 

; 0944 0 ELSTSELMCI3 = 

; 0945 0 (ELSTSELM + LSTSK_BASE + (1 * ELSTS$S_BLOCK_LENGTH)); 


t 
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"Yo 


. 1 

; aH String List Attribute Block 

: 0949 i 

; 0950 i 31 24 15 0 

; 0951 ‘ teeeccocces= eoeeereenene + +0 

: 0326 ' : Pointer to first H SLSTSV_STRING 

: geez : string se ent 

: 8322 0 ; teeanetageneennneee eee oe ‘ +3 

; 39 9 i ‘ Total string } SLST$W_LENGTH 

; 38 ; ' Length ' R 
; 999 9 ; teweennnsnnneene + +5  SLSTST_STRING 

: 0961 0 i String List Attribute Block is mad f a Block Header + LST 
: g3e S Block + String List Attribute sieck. eA 2 nasgerammernet ie 
ee 

; O96? 9 LTTE RASTSS BLOCK_LENGTH = 5 

5 Boer 

3 M 0970 9 $SLST = BLOCKCSLST$S_BLOCK_LENGTH, BYTE) FIELD (SLST$Z_FIELDS) 
Bag 

; 097% 9 FIELD SLSTSZ_FIELDS = 

> 0976 0 SLSTSV_STRING = (0, 0, 24, 02. 

: 0977 0 SLST$W-LENGTH = (3, 0, 16, OJ, 

: 0978 0 SLST$T~STRING = (5, 0, 0, 0) 

Be : 

; 0981 0 LITERAL 

; o988 9 SLSTSK_BASE = SLST$S_BLOCK_LENGTH; 

: 84 0 

; 85 9 STRUCTURE 

> 0986 SLSTSELMCIJ = 

; 0987 0 (SLSTSELM + LSTSK_BASE + (1 * SLST$S_BLOCK_LENGTH)); 
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; 0988 ‘* : 
: 85 Stritrig Segment Block 
3 1 ' 31 24 15 0 
2 0998 ° eeecece eweeeeeteannenaeoe 4 +0 
: 0994 i Pointer to next SEGSV_NEXT 
: 5 : H string segment : 
: 599 2 Goeweeeceooeecococecesecsn + +3 SEGST_STRING 
: 0998 0 i String Segment Block is made up of a Block Header + String 
: 44-44 8 : Segment Block. 
: 1001 0 i Each string attribute points to zero or more string segment 
$ 108 0 ‘ blocks. Each block contains a portion of the whole string. 
; 1005 0 } The final string is found by catenating all the string 
:; 1006 QO : segments together. 
3 1908 8 
; 1907 0 
; 1008 0 LITERAL 
3 Hs #4 8 SEGSS_BLOCK_LENGTH = 3 + BLKSK_BASE; 
> 1011 0 MACRO 
ae 1 0 $SEG = BLOCKCSEG$S_BLOCK_LENGTH, BYTE) FIELD (BLK$Z TEE LOS 
; 4 101 0 SEG$Z_FI DS) 
: 1014 0 q; 
; 1015 0 
; 1016 0 FIELD SEGS$Z_FIELDS = 
3 1017 0O SET 
3 1018 0O SEGSV_NEXT = CO+BLKSK_BASE, 0, 24, 01, 
> 1019 0 SEG$T~STRING = [3+BLKSK~BASE, 0, 0, 0] 
:; 1020 0 g 
s er © 
5 ince 0 LITERAL 
3 1025 0 SEGS$K_BASE = SEGSS_BLOCK_LENGTH; 
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TEXTST_STRING 


Text Block is made up of a Block Header + Text BLock. 


T 
TEXTSS -BLOCK_LENGTH = 0 + BLKSK_BASE; 


CRSTeXT = BLOCKCTEXTSS_BLOCK_LENGTH, BYTE] FIELD 


%; 
FIELD TEXT$Z_FIELDS = 
TEXTST_STRING 
TES 


LITERAL 
TEXTSK_BASE = TEXT$S_BLOCK_LENGTH; 


= CO+BLKSK_BASE, 0, 0, 0) 
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Each node has an Access Control List made up of zero or more 
Access Control List Entries (ACL). 


The ACL block is appended to a BLK to make an access control 
List entry. 
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‘+ ) 
: Access Control List Entry (ACL) 
i 1 15 
. - mn teoeeecococcccs °. +0 
Ptr to next ACL ACL$V_NEXT 
; teeceeee peeenanccncenncceccccccce + 43 
Rights to be granted ACLSL_GRANT 
teonnnn--- eeceeeennn ene eeeee--e- + 47 
; Rights to be denied ACLSL_DENY 
; : woneeen------------ woree-------- ¢ +11 
{ Rights to be banished ACLSL_BANISH 
‘ 2--------------- teecenenn------- + +15 
i ! UIC group # | UIC member # : ACLS$W_UIC_MEMBER 
i ACL $W~UIC~GROUP 
tenone-- toncccccn teeceeenenn-n--- + +19 
i Ptr to first ACLC block! ACLSV_FIRST_ACLC 
i 
t 
i 


LITE 


MA 


FI 


ul 


TERAL , 
ACL$S_BLOCK_LENGTH = 22+BLKSK_BASE; 


CRO 
SACL = BLOCKCACL$S_BLOCK_LENGTH, BYTE) FIELD (BLKSZ_FIELDS 
. ACL$2~F IELDSS 
ELD. | ACLSZ_FIELDS = 
ACLSV_NEXT = FOrBLKSK BASE. 0, 24, 03, 
ACLS$L~GRANT = ES*BLKSK-BASE, 0. 32, 01. 
ACLS$L~DENY = [7+BLKSK~BASE 
ACL$L BANISH = C1I1+BLKSR_BASE, 6, é. 3 
ACL$W~UIC_MEMBER = CIS+BLKSK"BASE. 0. 16. 0). 
ACL $W~UIC~ GROUP = EIZ+BLKSK-BASE, 0. 16, 01. 
a ACL$V7F IRST_ACLC = CI9+BLKSK"BASE. 0. 24. 
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STRUCTURE DEFINI 


ACLSK_BASE 


t IONS 


Sep- 
1$-tep- 
= ACL$S_BLOCK_LENGTH; 
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STRUCTURE DEFINITIONS 13xgeb7138e 33:29:33 “ANSE 8 
14 
Access Control List Criterion (ACLC) 
: 31 ’ 15 
ares - taeneanesaaailaeen Omtmenaem ne +0 
i { Type: | Ptr to next ACLC | ACLCS$V_NEXT 
' : a ' ACLC$B_TYPE 
} Hommm oon toowewwroeeeweooeceeosent+ +4 ACLEST STRING 
} Each ACL may have one or more Access Control List Criterion 
} (ACLC) chained from it. 
: Each ACLC specifies one user identification criterion for 
: the ACL entry. The user must Reco all the criteria for 
the ACL entry to apply to him 
An ACLC is appended to a BLK to form the criterion block. 
LITERAL 

ACLCSS -BLOCK_LENGTH = 4+BLK$K_BASE; 
MACRO 


SACLC = BLOCKCACLCS$S_BLOCK_LENGTH, BYTE] FIELD wants 


%; 
ws ACLC$Z_FIELDS = 
ACLCSV_NEXT 
ACLC$B_TYPE 
a ACLCS$T_STRING 


= (3+BLKSK"BASE, 
= [4+BLKSK~BASE, 0, 


LITERAL 
ACLC$K_BASE 


ACLC$S_BLOCK_LENG 


CO*BLKSK_BASE, 0, 24, 


LDS, 
ELDS) 


0j, 
8, 0), 
0; 0) 
TH; 
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31 15 0 

tewececeoe- See eewe weer eeececcee= + +0 

; Pointer to next UCB UCBSA_NEXT 
$accccecucccccece $enceccccsecccce + +4 

‘Last User First User | UCBSW_FIRST 

' Number Mapped | Number Mapped | UCBSW_LAST 

+ seectntaes ae teea nena teeweeeeoeocnoce + +8 UCB$V_CCB_BASE 
t/\INININININININININININININININE UCBSA_CCB 
ioe ccoMoesnsonenesens + +24 


A user's context pointer is an origin 1 index into the CCBs in 
the UCB List. Each UCB can point to UCBSK_CCB number of CCBs. 
If the user passes a context number that doesn't map to an 


active CCB, we tell him it's an invalid context pointer. 


Except in some extreme case, any image will probably never have 
more than 4 users active at any one time. But we can handle more! 


te ee te ee te ee et te te ee ee ee ee te ee ee ee ee 


LITERAL 
UCB$K_CCB_BASE e 
UCBSK_ ‘ ! Number of CCBs/UCB 
UCB$S_BLOCK_LENGTH CBSK_CC8_BASE + UCBSK_CCB * 4; 


8 
4 
U 
MACRO 

rae = BLOCKCUCB$S_BLOCK_LENGTH, BYTE] FIELD (UCB$2_FIELDS) 


FIELD UCBS$Z_FIELDS = 
SET 


UCBSA_NEXT = (0, 0. 32, 0). 
UCBSW~FIRST = (4; 0; 16. 0); 
UCBSW"LAST = (6; 0; 16. 0): 
UCBSV~CCB = (8: 0: 0, 0) 
UCBSA~CCB = £0. 0. 32, 04 
TES; 
LITERAL 
UCBSC_FIRST = BLOCKCO, UCBSW_FIRST; UCBSS_BLOCK_LENGTH, BYTE); 
STRUCTURE 
UCBSCCBLI, 0, P, S, E] = (UCBSCCB+UCBSK_CCB_BASE+ 
(I=, (UCBSCCB+UCBSC~FIRST)<0,16,0>) #4+0)<P,S,E>; 
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31 15 0 

¢eeeeceecet}ooceaceeeca fawmeoewwen toowse wo} +0 

: | Number | Low } ' PHB$B_POOL_TYPE 

: : of + slot i Pool } PHB$B_LOW SLOT 

: : slots { number! type |! PHB$B_SLOTS 
¢oeeeeecean -omameanae poewamnecoca p-omoecem moran 4 +4 

{Ptr to last MCB in the pool } PHBSA_LAST_MCB 

° erescereeon een cane acace eeeeeaeaooeacen > +8 

Number of bytes in each | PHBSL_EXTENT_SIZE 
: secondary extent H 
$uneenesceeceseeuseesseuenneasnce + #12 PHBSV_FREE_BLOCK_LIST 


Pools are used to = space for various in-core block types. 
Blocks that are related are usually allocated from the same pool. 
This is done because pools provide good locality of reference and 
this allocation scheme reduces page faults. 


Each pool consists of one or more extents. Each extent consists of 
a Memory Control Block and the rest of the space allocated to the 
extent. Each pools has a Pool Header Block associated with it. 
This block identifies the MCB List, as well as contains the pool's 
free block List. 


The free block List is a vector of Linked Lists. Each slot in the 
vector corresponds to a block type. When a block is freed, it is 
Linked into its associated free list. When a block is requested, 
its free List is checked to see if it is non-empty. If so, then 

a block is allocated from it. Otherwise, a block is allocated from 
one of the pool's extents. 


em me me mmm mm mmm mm mmm mmm 6 


LITERAL 
PHBS$S_BLOCK_LENGTH = 12; 


MACRO 
$PHB = BLOCKCPHBSS BLOCK LENGTH, BYTE] FIELD (PHBSZ_FIELDS) 


FIELD  PHBS$Z_FIELDS = 
SET 


PHB$B_POOL_TYPE = £0, 0. 8. 0), 
PHB$B_LOW SLOT = (1, 0, 8, 0). 
PHB$B~SLOTS = (2: 0; 8; 03 
PHBSA~LAST_MCB = £4, 0, é. 0), 
PHBSL “EXTENT SIZE = (8, 0, 32, 0), 
“FREE_BCOCK_LIST = (12, 6,°0. 0 


PHBSV 
TES; 
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STRUCTURE DEFINITIONS 1 =3007 1382 33:29:53 "$255$DUA28: [CDD.SACICDDLIB.832; 1 . (31) 
'¢ | 
Hash Control Block (HCB) 
31 15 
eenehomes neat Ts 
Forward homonym pointer HCBSA_NEXT 
powscacesce wecccwccececceccccccee + +4 
! Backwards homonym pointer HCBSA_PRIOR 
ee wannanennnannnn a= at 48 
; Hash key HCBSV_HASH_KEY 
; Geeecescoees a en + #12 
: Rest of hash key 
: ¢ocenccce a tuececcecccccece + +16 
: Pointer to object block HCBSA_BLOCK 
i (emsececccocaccscvecse ecncecccece + +20 
1 
s 
LITERAL 
HCB$K_PCB_NUMBER = 1, ! Hash type is page number 
HCBSK_LCCB_CODE z ¢° ! Hash type is location code 
HCB$K_LCCB_ADDRESS = 3, ! Hash type is entity disk address 
HCBSK_KEY_CENGTH = 8 ! Size of a hash key 
HCB$S-BLOCK_LENGTH = 20; 


MACRO 
sHCB = BLOCKCHCB$S_BLOCK_LENGTH, BYTE) FIELD (HCB$Z_FIELDS) 
FIELD. WCBSZ_FIELDS - 
HCBSA_NEXT = (0. 0, 32. 01. 
HCB$A~PRIOR = £4. 0. 32, 03. 
HCB$V_HASH_KEY = (8, 0, 0, 0) 
= £16, 6, $2, 6) 


HCBSA~BLOCR 
TES; 


LITERAL 
HCBS$K_HOMONYM_LIST 


BLOCKCO, HCBSA_NEXT; , BYTE); 


co_— 
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CODD Bliss Librar 1}-5e -1984 23:36:4 VAX-11 Bliss-32 v4.0 Page 37 
STRUCTURE DEFINITIONS 1 ~8ep-19 4 33:36:33 "$255$DUA28: :CCDD. SRC ICDSLIG. B32; 1 . (33) 
' en nerve nen meer manne cane moas eon +52 
ry ‘ ' 
i Ptr to last CCBSA_LAST_SPB 
4 ' Security Preservation Block ; 
1 tgs ace atnit seeeceoeeoeneoaananoaon . +56 CCBSV_HASH_BASE 
! ! 
i ' ' 
+/\ININININININININININININININING 
! 
' ten menrn na wmoew enn ecmn enone as aan Se te me ee + 
' 
The hash table consists of a number of hash entries. 
See the HCE description for the format of these entries. 
LITERAL 
CCBSK K_HASH_TABLE_SIZE = 151, 
CCB$S_BLOCR_LENGTH = 56 + (CCBSK_HASH_TABLE_SIZE * HCE$S_BLOCK_LENGTH); 
MACRO 
-e* BLOCKCCCB$S_BLOCK_LENGTH, BYTE) FIELD (CCB$Z_FIELDS) 
hay *" epeatte dameate = 
CCBSW_FLAGS = (0, 0, 16, 0), 
CCB$V_CORRUPT = £0, 0, 1, 0) ! Stream is corrupt 
CCBSA~FIRST_LOCK = £4, 0. 32, 04, 
CCBSA_LAST_COCK = (8, 0, 32, 0) 
CCBSW"LOCK"ID = (18, 6, 16, 04, 
CCBSW_USER_ID = (14, 0, 16, 0), 
CCBSL_NEXT_LCC = (16, 0, 32, 0), 
CCBSA_CDDSTOP_NCB = (20, 0, 32, 0), 
CCBSA_LOGIN_ NCB = Se" 0, 32, 0), 
CCBSA_CURRERT_FCB = 9 a, Bes Ole 
CCBSA_FIRST_C = ‘ ee Ge 35° 0], 
CCBSA_LAST CI = (36, 0, 32, 0], 
CCBS$L_STATOS = (40, 0, 35° 8} 
CCBSA_POOL = (44, 0, . Ol, 
CCBSA_FIRST_SPB = (48, 0, 32, bi. 
CCBSA_LAST_ = (52, Be ie 9 ° 
CCBSV_HASH_BASE = (56, 0, 0, 0 
TES; 
LITERAL 
CCBSK_LOCK_LIST = BLOCKCO, CCBSA_FIRST_LOCK; , BYTE], 
CCBSK ~CLuSTER LIST = BLOCKCO, CCBSA_FIRST CIB; , BYTE), 
CCB$S_ = BLOCKLO, CCBSV_HASH_BASE; , BYTE, 
CCBSK- ~SPB. Mist = BLOCK(O, CCBSA_FIRST_SPB; , BYTE); 
STRUCTURE 
CCBSHASHL[I!, 


E) = 
CCCBSHASHSCCESS. wan _BASE+0+(1*HCE$S_BLOCK_LENGTH) )<P,S,E>; 
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LITERAL 


= 1*1 = 140; ! Stream is corrupt 


CCBSM_CORRUPT 
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; Ptr to page's FCB 


Pointer to first 


LCCB in page cluster 
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; Pointer to last 


LCCB in page cluster 
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PCBSL_PAGE_NUMBER 


_FLAGS 
“BLOCK_NUMBER 
PCBSA_BUFFER 
PCBSA_NEXT_CLUSTER 
PCBSA_PORTAL_CIB 
PCBSA_FCB 
PCBSA_BCB 


PCBSA_FIRST_LCCB 


PCBSA_LAST_LCCB 


A Page Control Block (PCB) exists for every page in the cache, 
and for pages that only have presence locks on them (thus they're 


not in the stoping cac e). 
i 


Block (CIB) appen 


TERAL 
PCB$S_BLOCK_LENGTH = 36; 


Portal pages have a Cluster Information 
ng to their PCB. 


CRO 
"oe = BLOCKCPCB$S_BLOCK_LENGTH, BYTE) FIELD (PCB$Z_FIELDS) 


SELESRANLESELETE 


seesees 
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CDD Bliss Librar 1S-se =1984 23:36:45  VAX-11_Bliss-32 v4.0-742 Page _40 
STRUCTURE DEFINITIONS 138ep-1obe 52:28:58 — “S2sdSnpAaesce oD Sac IcboLIB.832;1 29°39 
FIELD. | PCBSZFIELDS = 


ET 
PCBSL_PAGE NUMBER = (0, 0, 32, 8. 
PCBSW_FLAGS = (4, 0, 16, 0], 
PCBSV_MODIFIED = (4, 0, 1, 0], ! Must write back to dict. 
PCBSV_NEW_PAGE = (4, 3, 1, 8 ° ! Page was in free chain 
PCBSV_READ_ONLY = (4, 4, 1, 0], ' Page is read only 
PCBSV_FREE_PAGE = (4, 5, 1, 0], ! Page is a free page 
PCBSV_AVAICABLE = (4, 6, 1, bi. ! Page available in cache 
PCBSV_PORTAL_PAGE = (4, 7, 1, 0 ! Page is portal page, CIB follows 
PCBSW-BLOCK NUMBER = (6, 0. 16, gj. 
PCBSA_BUFFE = (8, 0, 3 } 
PCBSA_NEXT_ CLUSTER = (12, 6, é. i, 
PCBSA_PORTAL_C1B = (16, 0, 32, 0). 
PCBSA_FCB = (20, 0, 32, 03, 
PCBSA_BCB = (24, 0, $ 0], 
PCBSA-FIRST_LCCB = (28, 0, 32, 01, 
PCBSA_LAST_CCCB = (32, 0, 32, 0) 
TES; 
LITERAL 
PCBSK_LCCB_LIST = BLOCKCO, PCBSA_FIRST_LCCB; , BYTE); 
LITERAL 
PCBSM_MODIFIED = 1*1 = 140, ! Must write back to dict. 
CBSM_NEW PAGE = 1°64 - 143, ! Page was in free chain 
PCBSM_READ_ONLY = 1*5 = 1%4, ' Page is read only 
PCBSM_FREE PAGE = 1°6 - 1%5, ! Page is a free page 
PCBSM_AVAICABLE =z 1°7 = 1%6, ! Page available in cache 
PCBSM_PORTAL_PAGE 2 1°§ © 1°73 ! Portal page, CIB follows 
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Cluster Information Block (CIB) 


31 15 
eee ne +0 
Cluster 

: ' flags ' 

» pa a ree uptime Nk emma recanted +4 
: Retrieval lock } Presence Lock | 

: ref count + ref count ; 
pewen eer een een em poms omnwreawno = oo +B 
Delete lock Update lock 

: ref count + ref count : 

fw women mre mame wmen ant mon we naman ecocee+ +12 
Pointer to first 

' deleted child cluster ' 
geen en ee ecw ee ee eee em ew ewer eee eee + +16 
Pointer to last 

' deleted child cluster ‘ 
teeter ete er mre wm ewe wm meme ener cere ween + +20 
Ptr to newest lock 

: granted for this page ' 
gamer ew ewer eeeececen eran anes ene aan > +24 
Ptr to oldest lock 

: granted for this page H 
¢eococceecoceescoesocs ececceccoescon + +28 
Ptr to next cluster 

: at this directory level : 
wwe wrwm ere maw ner swam a nr e wen wm e rene > +32 
Ptr to prior cluster 

H at this directory level H 
Pewee ster eee see oe sewreeerrocsoee crew ewes $ +36 
Ptr to first cluster 

' at next directory level ' 
¢eeeeeeoereeeeoeeseeseseeeoosoeses} +40 
Ptr to last cluster 

: at next directory level ' 

eee we cen Demme oO Bw BBB eE BO wT EO ee O EOS 4 +44 
Ptr to CIB in next 

: highest directory level : 
bere ee ere ree TOO Eww eS SHEE RE ES + +48 


, Ptr to portal CIB 
in cluster holding history List : 
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CIBSW_FLAGS 
CIBSV_REF COUNTS 


CIB$W_PRESENCE_COUNT 
CIB$W7RETRIEVAC_COUNT 


el Bty-BEDTE- fou 
CIBSA_FIRST_DELETED_C1B8 
CIBSA_LAST_DELETED_C18 
CIBSA_LAST_LCB 
CIBSA_FIRST_LCB 
CIBSA_NEXT_SIBLING 
CIBSA_PRIOR_SIBLING 
CIBSA_FIRST_CHILD 
CIBSA_LAST_CHILD 


CIBSA_PARENT_CIB 


CIBSA_HISTORY_CIB 
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STRUCTURE DEFINITIONS 1eseb-19ne S2:01:33 — “Sdssspuaaesteoo saedcbeLIB.032;1 89° 305 
' tere re ree ces . see eee mw ewe wwe n ena} +52 
i ‘ ' 
i : Ptr to NCB for the CIBSA_OWNER_NCB 
: t node that owns this cluster : 
Ptr to cluster's pool header CIBS$A_POOL 
' 
i Each clusters’ portal py has a CIB associated with it. 
' This block is physically appended to the PCB of the cluster's 
: portal page. 
The CIB also points to the cluster'’s pool header. 
i The CIBSV_REF_COUNTS Lists must have each of the lock ref counts 
} in the same order as the LOCKS$K_xxx lock request symbols. 
ie 
LITERAL 
CIBSS_BLOCK_LENGTH = 60 + PCBSS_BLOCK_LENGTH; 
MACRO 
$CIB = BLOCKCCIB$S_BLOCK_LENGTH, BYTE] FIELD Cert eet Let es 
i; zo 
heey CIBSZ_FIELDS = 
CIBSW_FLAGS = CO+PCB$S_BLOCK_LENGTH, 0, 16, 0], 
C1BSV_LOCKED_DELETE = Pheprececprore=tenerue . B. Oa 
CIBSV_LOCKED_UPDATE = CO+PCB$S_BLOCK_LENGTH, 1, 1, OJ, 
CIBSV_LOCKED_RETRIEVAL = Pheprece-prorest TH, ¢ 1, OJ, 
CIB$SV_LOCKED_PRESENCE = (O+PCB$S_BLOCK_LENGTH, 3, 1, OJ, 
CIBSV_LOCKED™ = pore CB Ss BLOCK LE GTH, 0, 4, OJ, 
CIBSV_LOGIN = CO+PCB$S_BLOCK_LENGTH, 4, 1, 0], 
CIBSV_COMPLETE = CO+PCB$S_BLOCK_LENGTH, 5, 1, OJ, 
CIBSV_NEW = CO+PCB$S_BLOCK_LENGTH, 6, 1, OJ, 
CIBSV_HISTORY = CO+PCB$S_BLOCK LENGTH, 7, 1, 0], 
CIBSV_REF COUNTS = (4+PCB$S_BLOCK_LENGTH, 0, 0, 0] 
CIBSWTPRESENCE COUNT = [4+PCBSS"BLOCK“LENGTH. 0. 16, 04, 
CIBSW-RETRIEVAL_COUNT = Boece se Bt Oek LENGTH. 8. 16, Sie 
CIBSW_UPDATE_COONT = (8+PCB$S_ BLOCK _LENGTH, 16, 0 
C1BSW~DELETE~ COUNT = 1Q+PCBSS_BLOCR LENGTH, 6, 16, 03, 
CIBSA_FIRST_BELETED_CIB = (12+PCB$S_BLOCK_LENGTH, 0, 32, OJ, 
CIBSA_LAST_BELETED CIB = (£16+PCBS$S-BLOCK"LENGTH, 0, 32, 0], 
CIBS$A_LAST-LCB = = [20+PCB$S_BLOCK-LENGTH, 0, 32, OJ, 
CIBSA_FIRST_LCB = [24+PCB$S_BLOCK_LENGTH, 0 ; i eee 
CIBSA_NEXT_ SIBLING = [28+PCB$S_BLOCK_LENGTH, 0, a Ble 
CIBSA_PRIOR_SIBLING = (32+PCB$S_BLOCK_LENGTH, 6. ° bie 
CIBSA_FIRST_CHILD = (36+PCB$S_BLOCK_LENGTH, 0, o See 
CIBSA_LAST CHILD = [(40+PCB$S_BLOCK_LENGTH, 8° ° by 
CIBSA_PARERT CIB = [44¢PCB$S_BLOCK_LENGTH, Q, ° e 
CIBSA_HISTORY CIB = (48+PCB$S_BLOCK-LENGTH, 0, 32, 83° 
CIB$A_OWNER_NTB = (52+PCBS$S-BLOCK"LENGTH, 0, 32, 0], 
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‘4 
: Location Code Control Block (LCCB) 
i 
31 15 
° eer etreneie een wr eran enn eae es Beihai +0 
Location code number LCCBSL_LOCATION_CODE 
i | eo ae an oo a oe eetyewwmoewmomoecececeaes = ‘ +4 
: ' : H i LCCBSW_FLAGS 
‘ : LCCB ;: Block : LCCB flags ' LCCBSB_TYPE 
: ; type i type | : LCCBSB_LCCB_TYPE 
' ¢meer rene ww ee Oe ee bwe meee ee meee ae + +8 
: ' : 
Object's disk address LCCBSL_OBJECT/LCCBSV_OBJECT 
i een Sener sreraaeecne eececece = +12 
1 ' ' 
: H Pointer to object : LCCBSA_OBJECT 
: : in virtual memory H 
! tree reeezrenr eer ne ee z cece e er] See eee wee co +16 
! ' ' 
i : Pointer to PCB LCCBSA_PCB 
, H for page which holds object H 
! Geooceeeccecceecoeecocceccecocoecn + +20 
‘ : ' 
: ' Pointer to next ' LCCBSA_NEXT_LCCB ! virt addr 
' ' LCCB in cluster : ' must be 
' terme ew econ wna eer aereme rene snc ewoanees co +24 ' 0 mod 4, 
: : : ' for queue 
: : Pointer to prior H LCCBSA_PRIOR_LCCB ! instructions 
: : LCCB in cluster ; 
' er eroescece $enoeeceoees eer eee ne ner ee et +28 
é : DPTR of Last block : 
: : returned by FIND_NEXT : LCCBSV_LAST_BLOCK 
‘ : (0 if not used yet) : 
' ee oe +31 
' 
i 
; Location codes are used to provide a convenient means for the 
: user to identify a particular object. Each location code is 
: associated with an LCCB. The following objects may be 
: assigned location code: 
1) Entities 
: 2) Lists 
3) Nodes 
Ll 


TERAL 
LCCB$S_BLOCK_LENGTH = 31; 


CRO 
$LCCB = BLOCK(LCCBS$S_BLOCK_LENGTH, BYTE) FIELD (LCCBS2Z_FIELDS) 
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This block is appended to the location code's LCCB to name the 
specific cell represented by the Location code. 


COD Bliss Librar 18-sep-19 4 23:36:4 VAX-11 Bliss<-32 V4.0-742 Page 48 
STRUCTURE DEFINI t IONS 15-Sep-1984 3:38 $3 -$255$DUA28: CCDD.SRCICDDLIB.832;1 . (37) 
'¢ 

Entity Cell Control Block (ECCB) 

i 

i 31 15 0 

} (uentanareiemnand +0 

; { Cell number | ECCBSW_CELL 

i Suunithipnnipemasetenmmaned +2 

; 

: | ODPTR of this cell's | ECCBSV_LST 

: H LST block H 

' Femmwwwn pt owwweeooooeeowoooooooooss +5 

i ‘ ‘ 

: : Ptr to LCCB of the H ECCBSA_PARENT_LCCB 

: : List that owns this cell } 

teem ewe eee w ween eeeeeccoe= cocenet +9 

; Each cell in an entity List may be assigned a location code. 

: 


LITERAL 
ECCBSS_BLOCK_LENGTH = LCCBSS_BLOCK_LENGTH + 9; 
CRO 
SECCB = BLOCKLECCBSS_BLOCK_LENGTH,BYTE) FIELD (ECCBSZ_FIELDS 
“ LCCBSZ-F IELDSS 
FIELD. | ECCBSZ_FIELDS = 
ECCBSW_CELL S_BLOCK_LENGTH, 0 


O+LCCBS . 16, 02, 
ECCBSV“LST ge CCBSS-BLOCK-LENGTH, 0. 24, 0], 
eS. E COSARPARENT LCCB +LCCBSS"BLOCK-LENGTH, 0, 32, 03 


WN" OOONOUS iw 


SSESSSFSESHAAR RRMA 


i 
fwn—O0@ 


DOOOOOOOOOONOONO 
~~ 


Sroawnwnnwws 


a a a ed a et ad a = 2“ = 2 2 
<o 


SOOOOCOOSOSOOCOOCSOSOOOS COSCO SOSOSOSOOCOSOSCCOCOCOOOCOSOOCOOOOOOCOOOOOOOOOO 


SSS ESS SSSESERESSSS 


Mororoforoforon 


“Vo 


Node Control Block (NCB) 


31 15 


oso enooer ann woe = weet mreneaneemacanan a+ 


User's access rights 
to this node 


Access rights granted 
by this node's ACL 


Access rights denied 
by this node's ACL 
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é eeecoeee See ee eee eee Geena enenoenoneanee 
‘Name's | Name's |} 
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: length 
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information needed for the node. 
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+32 


+36 


+40 


an NCB. 


TERAL 
NCB$S_BLOCK_LENGTH = 40+*LCCB$S_BLOCK_LENGTH; 


on 


L16.832;1 


NCBSL_ACCESS_RIGHTS 
NCBSL_ACCESS_GRANTED 
NCBSL_ACCESS_DENIED 
NCBSL_ACCESS_BANI SHED 


NCBSA_PARENT_NCB 


NCBSA_PSW_POINTER 


NCBSV_NAME 
NCBSW"NAME_LENGTH 
NCBSB~NAME DT YPE 
NCBSB NAME ~CLASS 


NCBSA_NAME_POINTER 


NCBSA_SPB 


This gives additional 


CRO 
$NCB = BLOCKCNCB$S_BLOCK_LENGTH, BYTE] FIELD (LCCBSZ_FIELDS, 
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STRUCTURE DEFINITIONS 15-Sep-1984 41:2 


mM 2008 0 NCBSZ_FIELDS) 

009 0 %; 

010 

or 0 FIELD , NcBszZ FIELDS = 

te 0  vcese -ACCESS_RIGH 1s = CO+LCCBS$S_BLOCK_LENGTH, , 02, 

014 0 CBSL-ACCESS-GRANTED = [4+LCCBSS"BLOCK-LENGTH. 0. 32, 0). 

015 0 NCBSL-ACCESS DENIED = [(8+LCCB$S~BLOCK- LENGTH, 

016 0 NCBSL-ACCESS-BANISHED = [12¢LCCB$S_BLOCR_LENGTH, 0, . 04 
2017 0 NCBSA~PARENT NCB = C16+LCCBSS"BLOCK-LENGTH, 0, 32, 9 
2018 0 NCB$V—PASSWORD = [20+LCCBSS"BLOCK"LENGTH., 0. 0, 0 
2019 0 NCBSW_PSW_LENGTH = [20+LCCBSS"BLOCK"LENGTH, 0, 16, 03 

020 0 NCBSB~PSW~ vPE = [2+LCCBSS"BLOCK-LENGTH, 0. 8, 0J, 

021 0 NCBSB~PSW"CLAS = [O3+LCCBSS"BLOCK-LENGTH, 0. 8. 0 

0 : 0 NCBSA_PSW— POINTER = [24+LCCBSS"BLOCK-LENGTH, 0, 32, 03 

023 0 NCBSV_ E = +LCCB$S_BLOCK_LENGTH, 0, 0, 0 

024 0 NCBSW"NAME_LENGTH = COB+LCCBSS~BLOCK-LENGTH, 0. 16, 03 

025 0 NCBSB_NAME_DTYPE = +LCCB$S_BLOCK_LENGTH, 0, 8, 8 ° 
20 6 0 NCBSB NAME ~CLASS = [31+LCCBSS"BLOCK-LENGTH, 0. 

2027 0 NCBSA~NAME ~POINTER = [32+LCCB$S"BLOCK-LENGTH, 0, $. 05 
2028 2 a NCBS$A~SPB = [36+LCCBSS“BLOCK-LENGTH, 0. 32, 0] 
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'¢ 
} Pre-Allocated Page Block (PAPB) 
31 15 
' fawn mee srwre rence wene = eeeeceeceoen coos} +0 
; H ' 
i H Pointer to next ' PAPBSA_NEXT 
: ' BCB ' 
' beware ee Oe eB ew eNO OTe E mn oeee + +4 
: ' ' 
' Number of free page PAPBSL_NUMBER 
i Cre Sw eS eee e +8 
‘ 
i 
i Pre-allocated pages are represented by PAPBs Linked onto the 
; FCB in which the pages reside. Each PAPB has the page number 
of the free page it represents. 
ul 


TERAL 
PAPBS$S_BLOCK_LENGTH = 8; 


MACRO 
SPAPB = BLOCKCPAPBSS_BLOCK LENGTH.BYTE] FIELD (PAPBSZ_FIELDS) 


FIELD PAPBS$Z_FIELDS = 
SET 


PAPBS$A_NEXT = (0, 0, » Oe 
15 PAPBSLCNUMBER = £2: 0° 35! 03 
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LITERAL 
8 


CBSK_NUMBER = 16, 
BCBSS_BLOCK_LENGTH = 16; 


Buffer Control Block (BCB) 


31 15 
(cousconsuasesasessocsscessseccss? Of 

Pointer to next BCBSA_NEXT 
BCB 
teceeccceccencccce sccwccecccccccnt +4 

Pointer to prior BCBSA_PRIOR 
BCB 
Gcacesnmnssseressoussscesssessoos$ ¢§ 

Pointer to buffer BCBSA_BUFFER 
teceneenennenn-e- eecwenweennnnnnns 412 

Pointer to PCB BCBSA_PCB 


for page within buffer 


Frew w enews wen ween ween weeeeennnt +16 


The buffer control blocks (BCBs) are used to control the pages 
that are in memory. 


The BCBs are Linked into a queue. When a buffer is needed, the 
last buffer in the queue is assigned. 


The associated PCB contains information about the page and the 


buffer. If a page is modified while in the buffer, the page 
is written back to the work file before the buffer is reused. 


' Number of in-core buffers 


CRO 
rh = BLOCKCBCB$S_BLOCK_LENGTH,BYTE} FIELD (BCBSZ_FIELDS) 


FIELD BCBSZ_FIELDS = 
SET 


LITE 


TERAL 
BCBSK_BUFFER_LIST 


BCBSA_NEXT = (0, 0. 32, 0). 
BCBSA~PRIOR = £4, 0. 32, 01. 
BCBSA~BUFFER = (8; 0 0} 
BCBSA~PCB = (12, 6, 32, 05 


BLOCKCO, BCBSA_NEXT; , BYTE]; 
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COD Bliss Librar 13-se Sep-1984 
STRUCTURE DEFINITIONS opt 38e 33:29:38 
'e 
; User e taes List Entry Block 
' Geeeeoeoet{ooeeocen eet¢eoceocecesn tones em +0 
' ; ; ' URLC$B_COUNT 
4 : Unused + Count : 
‘ : } : URLCSV_UNUSED 
' teases ane Geen cwecaehtoracanann doeanasan 4 
! 
i 
i 
: User Retrieval List Entry Block 
31 33 15 . 
' ON ee eee + +0 
4 H Attribute Name H 
: : H URLESL_ATT/URLESL_CELL 
: : Cell “Tanber : 
' ¢eooceeooe}ooocoooce}ooceceses}oocoseoecn + 4 
‘ : : Data H URLESW_DATA_TYPE 
: H Reserved H Type H 
; : : Expected H URLESW_RESERVE 
' ¢eeccccecn PN ee + +B 
1 ‘ ' 
; Returned Status { - URLESL_STATUS 
i ‘ eceeecce ¢eooocceco}ocoeccecn ¢eecececs ‘ +12 
: : ' henge H URLESW_USER_LENGTH 
: : Returned Length ; ' 
: H i User Buffer H URLESW_RETURN_LENGTH 
' ¢eeeceeecon DE ee b +16 
‘ H Address of ; 
; H User Buffer or H URLESA_USER_BUFFER 
: : oer ing Descriptor : 
$ Sm mmwntpoowooownpooeooooet}oeceoeoce + +20 
LITERAL 

URLCSS -BLOCK_LENGTH = 4 

URLE$S~BLOCK~LENGTH = 20; 
MACRO 

ried BLOCKCURLC$S_BLOCK_LENGTH, BYTE] FIELD (URLC$Z_FIELDS) 
rie URLC$Z_FIELDS = 

URLC$B8_ COUNT = £0, 0, 8, 0) 
al URLC$VUNUSED = 1, 0. 24, 04 

MACRO 

BURLE = BLOCKCURLESS_BLOCK_LENGTH,BYTE] FIELD (URLE$Z_FIELDS) 
FIELD URLESZ_FIELDS = 

URLESL_ATT = (6. 0, 32. OJ, 
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Attribute Name Block (ATNM) 


31 30 29 28 27 26 16 15 0 
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+=--- (DD-defined peer outs 
toecece Global attribut 

teoccoeoo- Feteneredeltinad attribute 
eeceoecoeceececo Reserved 
eeceeeeesoece Reserved 


The attribute name block defines the break down of the 

attribute name. Bits 0 to 15 contains the number. Bits 16 

to 26 contains the protocol. The rgge tains bits are flags 
define the type of attribute. Bit 27 on implies a system 

defined attribute. Bit 28 on implies a global defined attribute. 
Bit 29 on implies a customer defined attribute. 


NOTE: i: the high order word of the attribute name block is 0 
he block is describing a cell. That is the protocol will 
on 0 and the flag bits will equal 0. 


ATNMSS_BLOCK_LENGTH = 


MACR 


FIELD 
SET 


TES; 


0 
ems BLOCKCATNMS$S_BLOCK_LENGTH, BYTE) FIELD (ATNM$Z_FIELDS) 


ATNMSZ_FIELDS = 
ATNMS$SW_NUMBER 


> 

~ 

a 

w 
hhrnnhnnnu 


NM$V_GLOBAL 
ATNMSV_ CUSTOMER 
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The page number block define the break down of the page number. 
Bits 0 to 17 is the page number. Bits 18 to 31 define the number 
of consecutive pages that can be read or written at one time. 
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'¢ 
Page Number Block (PNB) 
; 31 18 17 0 
' bo wmee nw emen var ene cee eereszrece concen n a Sammon ane se ere see ewe = eemrersoconesececeo + 
1 '‘ ‘ ' 
Page Group Size Page Number ' 
| Qunenceemnncenetansnunneees Susscienenmnnenneensesnensesenmenne + 
' 
' 
! 
' 
' 


LITERAL 
PNB$S_BLOCK_LENGTH = 


MACRO 

abs BLOCKCPNBSS_BLOCK_LENGTH, BYTE) FIELD (PNBS$Z_FIELDS) 
FIELD PNBSZ_FIELDS = 

SET 


PNBS$V_PAGE_NUM 
* PNBSV ~GROUP $12 
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Security Preservation Block (SPB) 


; 
To 1 

tA. 5 

' Grow ooooes ¢oeeeooen}ecoseeeos}oocecece} +0 
; 4s ' 
9 Pointer to next ' 

; Securtiy Preservation Block H 

' tGeoocococoen }oeoeeooe }oeoeoees}ooececos} +4 
i ‘ ' 
iM Pointer to prior ' 
-% Securtiy Preservation Block ' 

' Geweooooe}ooeeeces ¢oceoeeoen}oceoeoen} 48 
ry ‘ ‘ 
ym Pointer to 

; 4 Node Control Block ' 

' emcee en eee i ed wee ewe wens +12 
[4 
Granted Privileges ‘ 

i a eC aT ee wm ee e +16 
ry ‘ ‘ 

' Denied Privileges ‘ 

; 3 i 

' Banished Privileges ' 

i none eeoae tereeeeoeoee}oeceeceeee}oooceceoca > 424 
1 ‘ ‘ 

‘ Access Rights 

i eee we ee es ‘ +28 
! { Pswrd's: Pswrd's: Entity's : 

‘ ji class : data : password H 

; a + type : Length : 

' te moecretece Gewese scaes teen e we ence eace aawe + +32 
' ’ ' 

. 4 Pointer to entity's 
a password string ' 

§ ¢eeewoceecoeocescecen ewer enn ewe ca= weeereceone en $ +36 
: : Must | 

: : Scan ; 

; : Status : 

' ¢eweecccn + +37 
'‘ 

i 

i 

i 

a 

LITERAL 


SPB$S_BLOCK_LENGTH = 37; 
MA 


42 
DD 


L18.832;1 


SPBSA_NEXT_SPS 
SPBSA_PRIOR_SPB 
SPBSA_NCB 
SPBSL_GRANT 
SPBSL_DENY 
SPBSL_BANISH 


SPBSL_ACCESS_RIGHTS 


SPBSA_PSW_POINTER 


SPBSB_SCAN_STATUS 


CRO 
$SPB = BLOCKCSPBS$S_BLOCK_LENGTH, BYTE) FIELD (SPB$Z_FIELDS) 


Page 60 
(46) 


‘eae Be Se Oe Oe Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Se tee 
| REPRE RRR PERE 
OO SINISE 
COBIAN EWN—O 


TES; 
LITERAL 


' SPBSZ_FIELDS = 


SPBSA_NEXT SPB 
SPBSA_PRIOR_SPB 
SPBSA_NCB 


“” 
§ 
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PBSB_PSW_CLASS 
SPBSA_PSW"POINTER 
SPB$B_SCAR_STATUS 


SPBSK_QUE_HEADER 
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Access Lock Constants 
NOTE: 
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4 5 
gee Bliss Library 13°3 Sep 9° 138% $3: :36: +33 

System Literal Definitions -$ep-1984 22:41:2 
3 r 3 os ZSBTTL "System Literal Definitions’ 
; 2685 
3 rt 4 SYSTEM LITERAL DEFINITIONS 
s 4 : 
3 ret These Literals are only used internally. 
3 491 
$ 492 0 '¢ 
; 493 0 ' CDD Implementation Version 
3 494 8 !- 
; 495 
3 re | 0 LITERAL 
: 2497 0 CDDSK_FACILITY = 43 
; 498 0 CDDSK_LOWEST VERSION = 01. ! Lowest compatible version 
: 499 0 CDDSK_ VERSION = 201; ! Present version 
3 500 0 
3 501 0 
3 $208 0 '¢ : 
; 503 0 : Boolean Literals 
3 sepe 0 !- 
3 505 0 
; 506 0 LITERAL 
3 507 0 TRUE = 1, ' Boolean TRUE value 
3 508 0 FALSE = 0; ! Boolean FALSE value 
3 509 0 
3 510 0 
3 511 0 '¢ 
; 21g 0 : The following Literals are used to validate routines’ parameter 
s 213 8 : lists. 
3 Sele 0 i 
: 515 0 
3 $218 0 LITERA 
3 517 0 ARGSK OPTIONAL = 1, ' Parameter is apt enol 
; $218 0 ARGSK_REQUIRED = ¢- ! Parameter is required 
; 519 0 ARGS$K~ SYNC = 3, ! See COD$$U TVALIBATE documentation 
3 $250 0 ARGSK_SYNCIF = 4, ! See CDDSSU_VALIDATE documentation 
3 521 0 ARGSK_MARK = 0, ! Mark parameter as missing 
; 258 0 ARGS$K_DEF AULT = 1, ! Use default value 
3 5 0 ARGSK_STRING = 1, ! Default value is a null string 
3 524 0 ARGS$K_LONG = ¢- ! Default value is a longqword 
; 36 0 ARGS$K_WORD = 3, ! Default value is a word value 
3 526 0 ARGSK_REF = 0, : Parameter passed by reference 
3 2$4 ARGS$K_ VALUE = 1; ! Parameter passed by value 
3 529 0 
3 530 
$83) 
; 238 
3 5 
- 
3 5 6 
; 5 0 
3 5 0 


w 
oO 


LITERAL 


the same as the order of 
ref count fields in the CIB. 


The order of the LOCKSK_NORMAL lock constants MUST be 


the CIBSV_REF_COUNTS Lock 
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vocnta no ORAL TPES 
LOCK$K_QUEUED 


L 
LOCKS$K"FULL~ UPD 
LOCKSK_QUEUED_TYPES 


LOCKSK _XXX_GET 
LOCKSK~ XXX" GET_IF 
LOCK$K_OPTIONS™ 
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Types of page purge requests 


LITERAL 


LITERA 
MENSK LOWEST POOL 


'¢ 
' 


PURGESK_ALL = 1, 
PURGESK— - PRESENCE = ¢ 
PURGE SK~ “RETRIEVAL = 3, 
PURGE $K UPDATE = 4 
PURGE $K~SUBTREE = 160, 
PURGE SK ~ CLUSTER = 101: 


>> > 
— 
ane 
ees 8 


1}-se $ep-1984 23:3 
1 ~Sep-1984 $3; af: 33 
: Not locked 

Base of partially queued locks 


ene | 
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Number of partially queued locks 


Base of fully queued locks 


Number of fully queued locks 


Flag indicates must establish lock 
Get lock if not already present 
Option bits for locks 


Checkpoint & keep all locks 
Purge whole subtree 
Purge this cluster only 


Types of blocks that can be allocated in a pool. 


Types of pools 


MEMSK_CCB_POOL 
MEMSK~CIB~POOL 
MEM$K_HIGREST-POOL 


mn — 


CCB Pool block types 


LITERAL 


re 
Sad 
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Lowest pool typ 

Pool for CCB ee HCBs 
Pool for cluster blocks 
Highest pool type 


ock type in CCB pool 


Complete purge 
Purge but ‘Fe portal p 
Checkpoint & keep peartevel locks 
bl 
ck f 
oseck type in free block List 
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System Literal Definitions 15-Sep-19 -$255$DUA28: (COD. SRC TCDOLIB. 832;1 
MEMSK_CCB_HIGHEST = 2; ! Highest block type in CCB pool 
‘4 
: Cluster Pool block types 
LITERAL 
MEMSK CIB_LOWEST = 1, ! Lowest block type in cluster pool 
MEMS$K-C1B_C1IB = 1, ! CIB block 
MEMSK CIB_LOW_SLOT = 2, ' Lowest block type in free block List 
MEMSK_CIB_PCB = 2, ! PCB, 
MEMSK_CIB_LCB = 3, ' cB 
MEMSK-CIB-LCCB =4, i LCcB, 
MEMSK_CIB_ECCB = 5, ! ECCcB, 
MEMSK_CIB_NCB = g. : NCB, 
MEMSK CIB_SPB = 7, : SPB, 
MEMSK_CIB_HIGREST = 7; ! Highest block type in cluster pool 


These flags tell the deletion routine how it is to handle the 
following cases: 


DELSK_FAST Says that pointers do not have to be cleaned up, 
as the block they reside in is going to be deleted. 


DELSK_PRESERVE indicates that a directory node is Soret? to be 
emptied, and that its cluster is not to be deleted. 


DELSK_SUBDICTIONARY Says that sub-files are to have their contents 
deleted. 


TERAL 
DELSK_FAST = 1*1 - 1°0, 
DELSK_PRESERVE = 126 - 1°, 
DELSK-SUBDICTIONARY = 1*3 = 1*2; 


'¢ 
4 User Identification Criteria 


LITERAL 
CDD$K_ACL_LOWEST 
CDD$K~ACL-PASSWORD 
COD$K~ ie TERMINAL 
CDD$K-ACL-U 
CDDSK~ “ACL “USERNAME 
CDD$K> “ACL “HIGHEST 


PASSWORD 
TERMINAL name or class 
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USERNAME 
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Security Masks 


ae ZSBTTL "Security Masks‘ 
i SECURITY MASKS 


: CDD security bits 

LITERAL 
CDDSK_PROT_C = 1*1 = 1°0, ! 
CDDSK_PROT_D co 1.4 - 1*1, ' 
CODSK_PROT_G = 1*%3 - 1.§° : 
COD$K_PROT_H = 1%4 = 1*3, ! 
CDDSK_PROT_P = 1*5 - 1%, ! 
CDDSK_PROT_S = i - 1°5, ! 
CDODSK_PROT_U = 1*7 - 1.8. ! 
CDDSK_PROT_X = 1°88 - 1°7, ! 
DDSK_PROT_F = 1*9 - 1°8, : 
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CONTROL access 

LOCAL DELETE access 

GLOBAL DELETE access , 

HISTORY List entry creation access 
PASS THRU access 

SEE (read) access 

UPDATE terminal node access 

EXTEND directory node access 
FORWARDing directory creation allowed 


'¢ 


Macro-security values 
CDDS$K_PROT_ANY = 
CDDSK_PROT_DELETE = 
CDDSK_PROT_EXTEND = 
CDDSK_PROT_UPDATE = 


Other processor security bits 


VAX-11 Datatrieve 


CDD$K_DTR_PROT_E 
CDD$K-DTR~PROT-R 
CDD$K~DTR~PROT-M 
CDD$K~DTR~PROT~W 


EXTEND file 
READ file 

MODIFY file 
WRITE file 
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User Literal Definitions 1h-se 


ZSBTTL ‘User Literal Definitions’ 


USER LITERAL DEFINITIONS 


i System Defined Attribute Names 


LITERAL 
CDDSK_SYSNAM_FLAGS = 1°28 OR 1°27 OR 0°16; 

LITERA 
CODSK -FIRST_SYSNAN = 1 OR CDDSK_SYSNAM_FLAGS, 
CODSK~ = 1 OR CDDSK7SYSNAM-FLAGS. 
CODSK~ “HISTORY = 2 OR CDDSK~SYSNAM-FLAGS. 
a = 3 OR CDDSK~SYSNAM-FLAGS. 
CDDSK_PROTOCOL = 5 OR CDDSK~SYSNAM"FLAGS. 
CODSK~TYPE = § OR CDDSK-SYSNAM_FLAGS, 
cD ATHNAME = 7 OR CDDSK~SYSNAM-FLAGS. 
CDDSK-SHORT_PATHNAME= 8 OR CDDSK-SYSNAM-FLAGS, 
CDD$K~ORDER™ = 9 OR CDDSK-SYSNAM-FLAGS. 
CDDSK“LAST_SYSNAM = 9 OR CDDSK~SYSNAMFLAGS: 


'‘¢ 
: Attribute and Entity Types 


LITERAL 
CD DSK -fiRst TYPE 
CDD$K~ y 
CDD$K- “ENTITY LIST 
CDDSK-NULL 
CDD$K_NUMERIC 
CDDS$K" STRING 
CDDSK-STRING LIST 
CD DSK~ ORY 
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'¢ 
: User's entity purge options 


LITERAL 


CDDS$K_ALL = 1*1 = 140, 
CDD$K~ABORT s tee = jel. 
CDDSK“CHECKPOINT = 1*3 = 142: 


SIS SESS GH 
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These symbols are needed by users of the program interface. 


! Global/System-defined/Protocol=0 


Lowest $ peg defined attribute name value 
Node's f name 

History List head 

Node'’s name 

Node's protocol name 

Type of object pointed bag by location code 
Node's complete pathnam 

Node's path to C DSDEFAULT directory 
Directory's order 

Highest system defined attribute name value 
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COD Bliss b torery 
User Literal Definitions 


1Fgeect9ge 38:26 "S255S0UA28: 


Doesn' t want history list + = ag 
Don't create default ACL en 

Create dictionary file if nested 
Insert as first node 

Insert as last node 


! Fail if directory has children 
i Delete contents of subdictionaries 


‘6 
: User's node creation options 
LITERAL 
CDD$K_NOHISTORY = 1*1 = 1°0, : 
$K_NOACL = 1.8 - 1*1, ! 
CODSK_CREATE = 1*%5 - 176° : 
DDSK_FIRST = 1*4 - 1%3, : 
CDDSK_LAST = 1*5 = 1%4; ! 
'¢ 
User's node deletion options 
LITERA 
CODSK K_ CHECK 777 = 7%. 
CDDSK_SUBDICTIONARY = = 14 - 1°1; 
‘+ 
Values of the CDDSK_ORDER attribute 
LITERAL 
CDD$K ° 


vu 
N— 


SORTED 
CDD$K-NONSORTED 


! Directory is sorted 
i Directory is not sorted 
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' 
LINKAGE DEFINITIONS 
ine 
‘4 
CDDCALL 
‘ This Linkage uses the CALLG/CALLS Linkage convention, except 
; that it allows for one global register to be used in 
parameter passing. 
: R11 == used to pass the user's context pointer. 
LINKAGE 
CDDCALL = CALL : GLOBAL (USER_CONTEXT = 11); 
‘4 
SYS_JSB 
; This Linkage provides us with a general JSB routine Linkage. 
LINKAGE 


SYS_JSB = JSB; 
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> e. 


4 
e 4 
e 4 
» and finished, 


They abort the transaction 


| 
| 
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BYTE; 
USE) THEN 
REE); 

BYTE; 


NOTAST 


If not, it returns TRUE 


D mask) EQLU 0 


er transaction is in progress. 
et, mask) 


"MACRO DEFINITIONS’ 
CDD$_NOTASTREE; 


BUILTIN 
CDDS$GB_INUSE: 


CDD$GB_INUSE: 
EXTERNAL LITERAL 

TESTBITSS; 

SIGNAL (CDDS$_ 
CDD$GB_INUSE = FALSE; 


AN 


h 
IF TESTBITSS (CDD$GB_IN 


EXTERNAL 


XTERNAL 
This macro checks to see if any bit in a mask is set in the 


These macroes declare that we have started 


respectively, a CDD transaction. 


MACRO DEFINITIONS 
E 


j 
D 
ZSBTTL 
if anot 
END 
T 
E 
END 
SBITCLEAR 
target area. 
SBITCLEAR(ta 
. (target 
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1S-se 1984 23:36:4 
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! SBITSET 
i This macro checks to see if any Ah in a mask is set in the 


target area. If so, it returns TRUE. 


SBITSET(target, mask) = 
(target AND mask) NEQU 0 


SDONE_TRANS 


This macro is used to terminate a transaction. 


Call: 
SDONE_TRANS C(dsc1 C, dsc2] ...)] 
Where: 
dsci :== the names of dynamic descriptors which are to 


have their strings returned to the string pool. 


SDONE TRANS (dscl) = 


N 
EXTERNAL ROUTINE 


CDDSSSN_DONE_ TRANS : CDDCALL NOVALUE ; 


CDDSS$SN_DONE_TRANS (dscl 
ZIF-NOT ZNULL(ZREMAINING) ZTHEN , ZREMAINING %FI ); 
> ~USER CONTEXTCCCBSL_STATUS] 


+ 


$F.IND_ENTITY 


with a Location code. It also checks to make certain that 
allows the requested security access. 
Call: 
iccb-block.wa.v = SFIND_ENTITY (valid-arg.ra.v , 
RETRIEVAL 
( CHECK { UPDATE >). € MODIFY )); 
DELETE peLeTe 


This macro returns the virtual address of the LCCB associated 
the cluster is locked as requested, and that the cluster's node 
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0 DEFINITIONS 138ep- 198 S2iah:53 | “S8S$$0 
Where 
valid-arg :== the address of the calling routine's validated 


argument List. 
The argument List must have the following format: 


valid-arg([0] ::= address of longword holding 
context # 

valid-argl1] ::= address of descriptor holding 
path name, or zero. 


The first set of keywords names the desired lock state of 
the entity's cluster. 


The Last set of keywords names the intended access to the 
cluster. 
SFIND_ENTITY (valid_arg, locking, security) = 


N 
EXTERNAL ROUTINE 
CDDSSSN_F IND_ENTITY 


CDDSSSN_FIND_ENTITY (..valid erect 
$ XXR_LOCKING (ZREMOVE (Tock ing)), 
XNAMET'CDDSK_PROT_", security)) 


: CDDCALL; 


SF IND_XXX_LOCKING (class, type? E 
ZIF XTDENTICAL (class, ZQUOTE LOCK) %THEN 
OCKSK_XXX_GET OR 


SE 
ZIF ZIDENTICAL (class, ZQUOTE LOCKIF) ZTHEN 
LOCKSK_XXX_GET_IF OR 


LS 
ZIF NOT ZIDENTICAL (class, ZQUOTE CHECK) %THEN 
ZERROR (‘Invalid locking keyword: ‘, class) 


2FI 
aFI 


ZNAME ("LOCKSK_", type) 


$F IND_NODE 

This macro returns the virtual address of the NCB associated 

with a path mame or location code. It also checks to make certain 
that the cluster is locked as requested, and that the target node 
allows the requested security access. 

Call: 


ncb-block.wa.v = SFIND_NODE (valid-arg.ra.v , 


=742 
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COD Bliss Liprery 1S-sep-19 4 $3: 36:43 VAX-11 

MACRO DEFINITION 15-Sep-1984 22:41:2 -8255$DUA28: 
981 LOCK RETRIEVAL READ 
98 ( { LOCKIF >} { UPDATE >), € MODIFY }); 
98 CHECK DELETE DELETE 

ANY 

| 985 


: 8 : 

. ' 

4 i 

oe 

. ' 

3 9 0 : Where: 

; 0 : 

; 388 0 : valid-arg :== the address of the calling routine'’s validated 
ls 989 0 ; argument List. 

; 44 8 The argument List must have the following format: 

; 338 8 ' valid-arg([0] ::= address of longword holding 
13 99 ; context # 

3 994 0 : valid-arg(1] ::= address of descriptor holding 

3 995 0 : path name, or zero. ; 

> 62996 0 i valid-argl2] ::= address of longword holding 

3 4.44 8 } Location code, or zero. 

3 999 0 , The first set of keywords names the desired lock state of 

3 s00y 4 the node's cluster. 

: 3002 0 ; The last set of keywords names the intended access to the 

3 005 0 : cluster. 

; 004 0 !- 

; 005 0 

; ™ 3006 0 SFIND_NODE (valid_arg, locking, security) = 

: ™ 3007 O BEGIN 

; 4 3008 O EXTERNAL ROUTINE 

3 : 3010 8 CDDSS$SN_F IND_NODE : CDDCALL; 

; #3011 O CDDSSSN_FIND_ NODE (valid arg. 

7m Org 0 SFIRD_XXR_LOCKING (ZREMOVE(Locking)), 

; ™ 3013 0 ZNAMET'COBSK_PROT_', security)) 

;™ 3014 O END 

; 3015 @ z, 

; 3016 0 

; eit 0 '¢ 

; O18 9 $F IND_PARENT 

; 330 0 , This macro returns the virtual address of the NCB associated 

; $s) 0 : with a location code. It also checks to make certain that 

: Ose 0 ; the cluster is locked as requested, and that the cluster's node 

; 3094 4 allows the requested security access. 

3 025 0 : Call: 

: 026 0 : 

3 027 0 ! status.wlc.v = SFIND PARENT (valid-arg.ra.v , 

3 028 0 : C ETRIEVA READ 

; OS? 0 ¢ ( € LOCKIF >} { UPDATE >), € MODIFY } , ncb-block.wa.r, 

; 0 0 : CHECK DELETE DELETE 

: 031 0 : ANY 

; O36 0 ° name.wt.ds); 

: 033 0 : 

3 034 0 : where: 

3 035 0 : : : ; : 

: 036 0 : valid-arg :== the address of the calling routine's validated 

3 037 90 : argument List. 
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| 
| 
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The argument List must have the following format: 


VAX-11_B 
_$255$DU 


> 


valid-arg(0] ::= address of Longword holding 


context 


valid-arg(1] ::= address of descriptor holding 
path name, or zero ’ 

valid-arg(2] ::= address of longword holding 
location code, or zero. 


The first set of keywords names the desired lock state of 


the target cluster. 


The Last set of keywords names the intended access to the 


cluster. 


SFIND_ PARENT (valid_arg, locking, security, ncb_block, name) = 


N 
EXTERNAL ROUTINE 
CDDSSSN_F IND_PARENT : CDDCALL; 


CDDSSSN_FIND_ PARENT (valid art 
SFIND_XXR_LOCKING (ZREMOVE(Locking)), 


ses ZNAMET'CDBSK_PROT_', security), ncb_block, name) 


SINIT_DSC 
This macro is used to initialize dynamic string descriptors. 


Call: 
SINIT_DSC (dsc1 C, dsc2) ...) 


SINIT_DSCCDSC_NAM] = 
BEGIN 
DSC_NAMCDSC$B_ 
DSC_NAM DSC$B-C 
‘ DSC“NAMCDSCSA~POINTER) = 0; 


C$K_DTYPE_T; 
CSK-CLASS~D: 


$IO_SYNC (ef, iosb) 


This macro waits for the event flag (ef) to be set and for 
the 1/0 status parameter (iosb) to be filled in (non-zero). 


ef must be the target event flag number. 
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: iosb must be the address of the 1/0 status block. This 
‘ must be defined as a VECTORL,WORD] VOLATILE structure. 


SIO_SYNC (ef, josb) = 


BEGIN 
LOCAL 
STATUS: LONG; 


STATUS = SWAITFR (efn = ef); 
IF NOT .STATUS THEN 
SIGNAL_STOP (.STATUS); 
STATUS = STLREF (efn = ef); 
IF NOT .STATUS THEN 
SIGNAL TOP (STATUS); 
END WHILE .iosBC0J EQLU 0 


SMARK_PAGE (page-block) 


This macro marks a page as modified. Such a page must be 
written back to the dictionary file when it is purged from 
the staging buffers. 


SMARK _PAGE (page block) = 
page_block(PCB$V_MODIFIED] = TRUE 


+ 


SPARAMETERS (argi C, arg2) ...) 
list validate routine (CDD$$U_VALIDATE). 


the routine. Each entry has the following format: 
( REQUIRED , (Cn) _, CREF {| VALUE) : 
{ SYNC ! $Y 


N N aft ‘ 
OPTIONAL C,MARK : ,DEFAULT C,STRING | ,LONG : ,WORD] J ) 


SPARAMETERSC) 
x UPLIT (ZL 


SPARM peoresst ora: = 
BYTE (SPARM_DECIDE (2REMOVE(arg))) 


ENGTH, SPARM_PROCESS (%REMOVE (ZREMAINING))) 


This macro is used to build the control vector for the parameter 


There is one eotey (argl, arg2, etc) for every formal parameter in 


se 
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> 431 g 8 SPARM_DECIDE(status)(] = 
7:4 31 “TF RIDENTICAL (status, ZQUOTE REQUIRED) XTHEN 
i; 4 3156 0 ARGSK_REQUIRED, 0, 
i; ™ 3155 8 ZIF ZAULL (ZREMAINING) X%THEN 
74 31 ° ARGSK_REF, 0 
7: 4 31 0 ZELSE 
; 43158 O SPARM_REQUIRED (XREMAINING) 
3; 43159 O ZF 
3; ™ 3160 O ZELS 
; 4 3161 UO ZIF ZIDENTICAL (status, ZQUOTE SYNC) X%THEN 
an 198 0 _AROSK_SYNC, 0, 0, SREMAINING 
: Mm 3166 8 ZIF ZIDENTICAL (status, ZQUOTE SYNCIF) XTHEN 
E f 166 g ARGSK_SYNCIF, 0, 0. %REMAINING 
; 4 3167 QO ZIF ZIDENTICAL (status, ZQUOTE OPTIONAL) %THEN 
: 168 8 : ARGSK_OPTIONAL, SPARM_OPTIONAL (ZREMAINING), 0 
; 43170 O ZERROR (‘Invalid parameter status: ', status) 
° Ls 171 0 ° . ° 0 
: * 1 0 ZF I 
3; 43173 +O “FI 
363174 O XFI 
: ™ 3175 O “FI 
: 176 O he 
: 177 O 
; 43178 O SPARM_REQUIRED (number poss? = 
: 43179 +O ZIF XNULL (pass) &THEN 
; 4 3180 O 
: 4 3181 O ZELSE 
3; * $186 0 ZNAME (‘ARGS$K_', pass) 
: ™ 3183 O ZF 1 
3; 4 3184 O ZIF ZNULL (mumber) ZXTHEN 
: 43185 0 
: 3186 0 ZELSE 
3; 4 3187 O - number 
: 4 3188 O ZF I 
: 189 0 z, 
3 190 0 . 
7; 4 3191 0 SPARM_OPTIONAL(action)(] = 
7 8 136 0 ZIF ZIDENTICAL (action, ZQUOTE MARK) X%THEN 
7 4 3193 0 ARGSK_MARK, 0 
3; 43194 O SE 
:™ 3195 O ZIF ZIDENTICAL (action, ZQUOTE DEFAULT) ZTHEN 
: 2 1% 8 ARGSK_DEFAULT, ZNAME (‘ARGSK_*, ZREMAINING) 
3; 43198 O ZERROR (‘Invalid action keyword: *, action) 
3; 4 3200 0 2FI 
ae | $0) 0 FI 
3 O 0 & 
: 203 0 
; 204 0 
3 205 0 '¢ 
3 soe 8 SPRESENT 
: 208 0 : This macro checks to see if a parameter is present (non-zero) 
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SPRESENT (mame) = 
name NEQA 0 


SRECOVERY ( RESET | ENABLE | DISABLE ) 


This macro determines the ability of the exit handler to 
perform a purge of the cache if the task aborts. 


SRECOVERY (DISABLE) 
declares that the internal data structures or 
external disk structure is in an indeterminant 
ptate and cannot be recovered by the exit 
andler. 


SRECOVERY (ENABLE) 
declares that the data structure manipulation 
is completed. 


SRECOVERY (RESET) 
specifies that the data structures are in a 
recoverable state. 


Note that these can be nested. Recovery is only possible if 
the recovery counter is zero (reset). 


SRECOVERY (option) = 
BEGIN 


EXTERNAL 
CDD$GW_RECOVERY: WORD; 


ZIF ZIDENTICAL (option, ZQUOTE DISABLE) ZTHEN 
CDDSGW_RECOVERY = .CDDSGW_RECOVERY + 1; 


SE 
RIF ZIDENTICAL (option, ZQUOTE ENABLE) %THEN 
CDDSGW_RECOVERY = .CDDSGW_RECOVERY - 1; 


LIF XZIDENTICAL (option, ZQUOTE RESET) %THEN 
CDD$GW_RECOVERY = 6; 


L 
er ZERROR ("Illegal recovery option: *, option) 
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This macro calls the CDDSSSN_RELEASE routine to release one 
or more locks. 


Call: 


RETRIEVAL 
SRELEASE_LOCK ( { UPDATE } , ncb-block! ...); 
DELETE 


SRELEASE LOCK (locking)C] = 


EXTERNAL ROUTINE 
CDDS$SN_RELEASE : CDDCALL NOVALUE ; 


> CDDSSSN_RELEASE (2ZNAME ("LOCKSK_', Locking), Z%REMAINING) 


: SSIGNAL_SEVERE (error) 
; This routine signals a severe error. 


SSIGNAL_SEVERE (ERROR) = 
SIGNAL (ERROR OR STSSK_SEVERE) 


+ 


SSTATIC_DSC 
This macro is used to initialize static string descriptors. 


Call: 

SSTATIC_DSC (dsci C, dsc2) ...) 
Where: 

dsci :== name ! ( name , source ) 


Source is the name of another descriptor. The named descriptor 
is initialized to point to the same string as source. 


sci] = 
: _DSC_BUILD (ZREMOVE (dsci)) 


SSTATIC_DSC_BUILD(name, source) = 
BEGIN 
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; M 3323 name(DSCS$B_DTYPE) = DSCS$K_DTYPE_T; | 
3M 3324 name(DSC$B-CLASS) = DSCSK-CLASS“S: 

a 5 ZIF ZNUL (Source? armen 

ae | $ nameLDSCSW_LENGTH) = 0; 

8 uspeme DSCSA“POINTER) = 0; 

: 5 name(DSC$W_LENGTH]) = spoureetesryy LENGTH]; 

8 9 -, name DSCSA_POINTER] = .sourceCDSC$A_POINTER); 

| 2 END 

3 i, 

; 2 te 

3 * 0 SSTRING 

: 39 : i These macros are used to build string descriptors for Literal 

; ? : strings. 

: 34 0 ; Call: 

: 344 0 i SSTRING ( (name, string) ...) 

: 349 9 : SSTRING_INIT (); 

: 329 0 i “‘name’’' is defined to be a BLOCK structure, and the address of 

3 348 0 4 the string is poked into the structure by the STRING_INIT macro, 
: 349 0 ! which must be the first executable statement in a routine. 

3 320 te 

:m 33¢ 0 SSTRING [) = 

3 " 323 9 $STRING_DSC_SETUP (ZREMAINING) 

3m 3355 0 ZQUOTE XQUOTE SSTRING_INIT = 

: @ 3356 0 SSTRING_PTR_SETUP (ZQUOTE X%EXPAND %REMAINING) 

> M 3357 0 ZQU0T 

3326 9 ee 

: ™ 3360 0 SSTRING_DSC_SETUP[PAIR] = 

:* See 9 SSTRING_DSC_INIT (ZREMOVE(PAIR)) 

: 3363 0 i 

: " 364 4 SSTRING_DSC_INIT (STR_NAME, STR_VAL) = 

: 0 STR_NAME: $DSC PRESET (CDSC$B_DTYPE] = DSCS$K_DTYPE_T, 

: M4 308 0 ‘ DSC$B_CLASS) = DSC$K_CLASS_S, 

: im 368 9 DSCSW"LENGTH) = 

: M 3369 ZCRARCOUNT (ZREMOVE(STR_VAL))); 
: 33h? 0 * 

; 372 0 $STRING_PTR_SETUPCPAIR] = 

: #4 $f 9 SSTRING-PTR_INIT (ZREMOVE(PAIR)) 

: 75 . 

: 376 SSTRING_PTR INIT (STR_NAME, STR_VAL) = 

> 377 STRTNAMELDSCSA_POINTERS = UPLIT BYTE (ZREMOVE(STR_VAL)); 

: 379 ; 


ee 


$$$ $$ _______— 
acy i 


Reo. 

; : STEXTC 

3 84 : 

3 5 ! This macro is used to define counted strings. The first byte 
; : of such strings is a count of the number of characters in the 
3 Hf } string. 

; 9 i Each string is defined to be a VECTORL,BYTE] structure, with 
; 90 : the 0 element be ing ~ character count, and the actual string 
3 3 0 starting at STRINGL1). 

: 38 : STEXTC ((namel,*stri') C, (mame2, ‘str2')] ...); 

; is 6 i 

: 3$ STEXTCCPAIR] = 

3; #4 a8 STEXTC_STR(ZREMOVE (PAIR) ) 

: 00 0 ; 

3; ® 3401 8 STEXTC_STR(NAME,TSTR) = 

; #4 8g BIND 

3; #4 0 0 NAME = UPLIT BYTE (2ZCHARCOUNT(ZREMOVE(TSTR)), ZREMOVEC(TSTR)) : 
; 0% 0 ‘ VECTOREZCHARCOUNT (ZREMOVE(TSTR))*1, BYTE); 

: 3406 9 ‘ 

3 07 90 

3 08 0 '¢ 

; met 0 SVALIDATE (cntl, Carg-list]) 

: 11 i This macro generates a call to the general transaction setup 
: ret 8 : routine. 

; 18 ! entl =-- the address of the control vector for CDDSSU_VALIDATE. 
: 16 0 i arg-list-- is optional. If present, it is the address of the 
; 17 0 : vector which is to receive the verified argument List 
3 18 4 from CDD$$U_VALIDATE. 

; 20 0 : 

3; 8 1 0 SVALIDATE(cntl, arg_list) = 

; #4 4 0 BEG 

3; #4 EXTERNAL ROUTINE 

s 2 tse 9 CDDS$SN_START_TRANS : CDDCALL NOVALUE; 

; 6 0 BUILTIN 

3; 4 AP; 

3; #4 8 0 

3; 4 3429 

3; 4 3430 ! ZIF NULL (arg List) ZTHEN 

; " 431 9 : CDDSS$SN_START_TRANS (.AP, cntl) 

: " 438 9 ' CDDSSSN_START_TRANS (.AP, cntl, arg_list) 

: mM 3435 (0 END 

3 436 0 q; 
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